home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / comms / other / dwarfx-tng / dwarfx / dwarfmop.amirx < prev    next >
Text File  |  1999-04-19  |  623b  |  12 lines
  1. /*
  2. \\ |DWaRFx-TNg| - DWaRFMoP.AmIRX v1.3
  3. //              - By Gareth Murfin
  4. \\
  5. // Mass OPs a channel.
  6. \\
  7. // To run do /DwMOP
  8. \\        or /Rx Rexx/DWaRFx/DWaRFMOP.AmIRX
  9. //
  10. \\
  11. */
  12. options results;'getusers';userlist=result;users=words(userlist);'GETMYNICK';me=Upper(result);dfxlogo='p='d2c(27)'b«DWaRFMoP» ';'echo 'dfxlogo||d2c(2)'|DWaRFx-TNG|'d2c(2)' Mass 0P Script innitiated';'echo 'dfxlogo'All users will be OPed. Watch out for channel takeovers!';evnum=Substr(Address(),Pos('.',Address()));Call Setclip('DFxTIME'evnum,Time());DO i=1 to users;us=Compress(subword(userlist,i,1),'@+');If Upper(us)~=me Then 'say /op' us;END